Inference at * 
Iof proof for Lemma mul functionality wrt eq:


  i1, i2, j1, j2:. (i1 = j1)  (i2 = j2)  ((i1 * i2) = (j1 * j2)) 

latex

 by (Auto_aux (first_nat 1:n) ((first_nat 2:n),(first_nat 3:n)) (first_tok :t) inil_term) 

latex

 .

Definitions

, t  T, P  Q, x:A. B(x)